
Sub MoveTextBox()
    With ActiveSheet.Shapes("Text box 1")
        .Select
        .Left = 0
        .Top = 0
    End With
End Sub

Sub MoveCircle()
    With ActiveSheet.Shapes(2)
    .Select
    .Left = 0
    .Top = 0
    End With
End Sub

Sub NewFolder()
    MkDir "C:\Study"
End Sub

Sub RemoveFolder()
    RmDir "C:\Study"
End Sub

